home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / BIO.DIR / 00072_Script_72 < prev    next >
Text File  |  1996-04-01  |  2KB  |  85 lines
  1. on startMovie
  2.   global bioHiliteSprite
  3.   
  4.   setAuxiliarySearch
  5.   --  stopplayingLoadingSound
  6.   set bioHiliteSprite = 15
  7.   
  8.   global originalFrame
  9.   set originalFrame = empty
  10.   
  11.   normalCursor
  12.   global alreadyViewedBiography
  13.   if alreadyViewedBiography = empty then set alreadyViewedBiography = false
  14.   if alreadyViewedBiography then
  15.     go "Contents no sound"
  16.   else
  17.     set alreadyViewedBiography = true
  18.   end if
  19. end startMovie
  20.  
  21. on goBioPage whichPage
  22.   waitCursor
  23.   
  24.   --    stopVoice
  25.   
  26.   put 6 into firstPage -- NOTE: Change this constant to the first frame of the book
  27.   
  28.   puppetTransition 2, 2, 16, true  
  29.   go frame firstPage + whichPage - 1
  30.   normalCursor
  31. end goBioPage
  32.  
  33. on goNearbyBioPage howMany
  34.   waitCursor
  35.   
  36.   --  stopVoice
  37.   
  38.   if howMany > 0 then 
  39.     puppetTransition 2, 2, 16, true
  40.   else if howMany <0 then
  41.     puppetTransition 1, 2, 16, true  
  42.   end if
  43.   go the frame + howMany
  44.   normalCursor
  45. end goNearbyBioPage
  46.  
  47. --on printBio
  48. --  hideAnnotation
  49. --  LeoPrint label("BioPrintPages"), label("EndBioPrintPages"), "BIOGRAPH.EXE"
  50. --end printBio
  51.  
  52. ----------------------------------
  53.  
  54. ------------------
  55. on getGridSquareCenter Pixels, NumSquares, Square
  56.   set SquareSize = Pixels / NumSquares 
  57.   return integer (Square * SquareSize - (SquareSize / 2))
  58. end getGridSquareCenter
  59.  
  60. -----------------
  61.  
  62. on hideIndexhilite
  63.   global bioHiliteSprite
  64.   puppetSprite bioHiliteSprite, false
  65.   updateStage
  66. end hideIndexhilite
  67.  
  68. on positionIndexHilite H, V
  69.   global bioHiliteSprite
  70.   puppetSprite bioHiliteSprite, false
  71.   set the locH of sprite bioHiliteSprite = H
  72.   set the locV of sprite bioHiliteSprite = V
  73.   updateStage
  74. end positionIndexHilite
  75.  
  76. on HiliteIndexChoice Col,Row,numColumns,numRows
  77.   put the ClickOn into gridSprite
  78.   set H = getGridSquareCenter (the width of sprite gridSprite, numColumns, Col+1)
  79.   set V = getGridSquareCenter (the height of sprite gridSprite, numRows, Row+1)
  80.   put H + the left of sprite gridSprite into H
  81.   put V + the top of sprite gridSprite into V
  82.   
  83.   positionIndexHilite H, V
  84.   
  85. end HiliteIndexChoice